home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Multitext v1.0.adf / MULTITEXT100.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1992-04-03  |  96KB  |  2,173 lines
  1. GFA-AMIGAB
  2. FEHLER
  3. RADIUS
  4. HOR_GADGET
  5. SUPERLAYER
  6. DESTB
  7. DESTH
  8. BREITE
  9. BREITEMM
  10. HOEHEMM
  11. POLZAHL
  12. XRAST
  13. RESTSTIFTE
  14. BALKENBREITE
  15. WINDBREITE
  16. XZIEL    F_FENSTER
  17. OLDPRINTDENSITIY
  18. PREFS_PUFFER    IODRP_REQ
  19. INDEX    MENUTITEL
  20. TOPAZ.FONT
  21. STYLE
  22. RECHTE_MAUSTASTE
  23. INITBITMAP
  24. XMOUSE    QUELL_LOY
  25. FORBID
  26. PERMIT
  27. ZIELTEILUNG_X
  28. ZIELTEILUNG_Y
  29. LINKE_MAUSTASTE
  30. ALPHA
  31. ALPHA2
  32. ALPHA1
  33. OFFSET
  34. HORIZONTAL    GEDRUECKT    RUY_LAYER
  35. XSSOLL
  36. ARBEITS_WIND
  37. SETFON
  38. SPALTENBREITE
  39. ZEILENHOEHE
  40. QUELL_X
  41. KONTR
  42. HILFSRAST2
  43. PIXEL
  44. LAGE    DATEINAME
  45. RICHTUNG    RICHTUNG1
  46. TITEL
  47. D_NAME
  48. DEVICE_NAME
  49. TEXT    MENUPUNKT
  50. PRGNAME
  51. DISKFONTNAME
  52. FONTNAME
  53. BEREICH
  54. OBJEKT
  55. POINTER_UP
  56. POINTER_DOWN
  57. FONTGROESSE
  58. TOPAZ
  59. SEL_TEXT
  60. IMAGE
  61. TEXTATTR
  62. POINTER_RIGHT
  63. POINTER_LEFT
  64. B    CHUNKNAME
  65. HEADER
  66. PUFFER
  67. MUSTER
  68. GADGETDEFS
  69. PROPINFO
  70. PUFFER
  71. GADGETSDEFS
  72. HOR_GADGET
  73. VER_GADGET
  74. USERPORT
  75. INTMESS
  76. BITMAPSTRUKTURADRESSE
  77. BITPLANEBASISADRESSE
  78. KONTROLLWERT
  79. BITMAPSTRUKTUR_ADR
  80. BITPLANEADRESSE
  81. LAYERSTRUCTPTR
  82. LAYERINFOPTR
  83. LAYER
  84. BITMAP
  85. SUPERBITMAP
  86. SUPERBITPLANE
  87. SUPERLAYER    SUPERRAST
  88. SUPERLAYERINFO
  89. EREIGNIS
  90. VIEWPORT
  91. MAP    COLOURMAP
  92. ERGEBNIS
  93. BITPLANE
  94. POLZAHLEINTRAG
  95. LAENGE    BITPLANEN
  96. PROP_GADGETS
  97. PROP_GADGET
  98. REGION    RECTANGLE
  99. RASTPORT
  100. P_PORT    F_FENSTER
  101. F_RASTPORT
  102. F_SCREEN
  103. F_VIEWPORT
  104. F_COLORMAP    P_SIGTASK
  105. STATUS
  106. FEHLER
  107. WINDADD    SCREENADD
  108. VP_MODI
  109. MODUS
  110. PREFS_PUFFER    IODRP_REQ
  111. REPLY_PORT
  112. COPIED_RAST
  113. COPIED_BITMAP
  114. COPIED_BITPLANE    BITPLANES
  115. ZIELBITMAP
  116. SIGNAL_NUMBER
  117. TASK_NR    SIGNAL_NR
  118. COMAP
  119. ERROR    REPLYPORT
  120. SCREENLAYERINFO
  121. SCREENBITMAP    LAYERRAST
  122. NEWLAYER
  123. NEWLAYERRAST
  124. PRTLAYER
  125. PRTLAYERRAST
  126. ADRESSE
  127. DISKFONTLIBRARY
  128. START_TEXTFONT
  129. TEXTATTR
  130. AKT_TEXTFONT
  131. OLD_TEXTFONT
  132. GL_SCHRIFTARTEN
  133. MOEGL_SCHRIFTARTEN
  134. PUFFER_BITMAP
  135. PUFFER_BITPLANE
  136. ERSTE_ZEILE
  137. ZEILENZAHL
  138. ALTE_ERSTE_ZEILE
  139. HILFSRASTPORT
  140. HILFSBITMAP
  141. HILFSBITPLANE
  142. SIZEVORHER
  143. SIZENACHHER
  144. MESSAGE
  145. SIZE1
  146. SIZE2
  147. HILFSLAYER
  148. ITEXT    INTUITEXT
  149. QUELLRASTPORT
  150. PRTLRAST
  151. PRTRAST
  152. BREITE
  153. UNDO_BITMAP
  154. UNDO_BITPLANE
  155. FONT_NEW_GADADR
  156. PROP_GADADR
  157. VERTPOT_ADR
  158. PUT_GADADR
  159. PDT_GADADR
  160. UNDER_GADADR
  161. CURSIV_GADADR
  162. BOLD_GADADR
  163. OUT_GADADR
  164. CENTER_GADADR
  165. BREAK_GADADR    OK_GADADR
  166. VERTBODY
  167. PUFFERLAENGE
  168. STRING
  169. STR_GADADR
  170. STR_GADL
  171. FONT_NEW_GADL
  172. VERTPOT    PROP_GADL
  173. PUT_GADL
  174. PDT_GADL
  175. UNDER_GADL
  176. CURSIV_GADL    BOLD_GADL
  177. OUT_GADL
  178. CENTER_GADL
  179. BREAK_GADL
  180. OK_GADL
  181. STRUKTUR_ADR
  182. STRUKTUR_LAENGE
  183. MEMORY
  184. BOOLEAN_GADGET
  185. BORDER
  186. KOORD
  187. IMAGE
  188. STRING_ADR
  189. STRING_GADGET
  190. STRING_INFO
  191. STRING_PUFFER
  192. UNDO_PUFFER
  193. POT_ADR    PROP_INFO
  194. INT_PUFFER
  195. LONGWORD
  196. PROPV_GADADR
  197. PROPV_GADL    HORIZBODY
  198. SCROLLUP_GADADR
  199. SCROLLUP_GADL
  200. SCROLLDOWN_GADADR
  201. SCROLLDOWN_GADL
  202. HORIZPOT_ADR
  203. PROPH_GADADR
  204. PROPH_GADL
  205. SCROLLLEFT_GADADR
  206. SCROLLLEFT_GADL
  207. SCROLLRIGHT_GADADR
  208. SCROLLRIGHT_GADL    LAYERINFO    WIND_RAST
  209. WIND_BITMAP
  210. WIND_LAYER
  211. WINDLAYERINFO    WINDLAYER
  212. LAYER_RAST    LOX_LAYER
  213. PROPH_GADGET
  214. HORIZPOT
  215. XSSOLL
  216. GADADR
  217. FLAGS
  218. NUMGAD
  219. Y2    VERTTBODY    TVERTBODY
  220. TVERTPOT
  221. TVERTPOT_ADR
  222. TPROP_GADADR
  223. TPROP_GADL
  224. TSCROLLUP_GADADR
  225. TSCROLLUP_GADL
  226. TPUT_GADADR
  227. TSCROLLDOWN_GADADR
  228. TSCROLLDOWN_GADL
  229. CHUNK_LAENGE    VIEWMODES
  230. DATEIL
  231. NGE_ALT
  232. DATEILAENGE_ALT
  233. LAENGE2
  234. BODY_LAENGE    HILFSRAST
  235. PUFFER_RASTPORT
  236. WEITER
  237. MOEGLICHKEIT1
  238. MOEGLICHKEIT2
  239. MOEGLICHKET2
  240. STATUS    STREIFEN1    STREIFEN2
  241. STREIFEN
  242. ANTWORT
  243. START_LOETAUGE
  244. ZIEL_LOETAUGE
  245. MULTI_GEDRUCKT
  246. MODUS
  247. ZIEHEN
  248. RASTER1
  249. ASYNCHRON_GEDRUCKT
  250. ABBRUCH
  251. POSITIONIERUNG
  252. ACCEPT
  253. AUTOSCROLLING
  254. OUTLINE
  255. LINKE_MAUSTASTE    MENUPUNKT
  256. RECHTE_MAUSTASTE
  257. GADGET_GEDRUECKT
  258. GADGET_LOSGELASSEN
  259. KOPIEREN
  260. ALLOCMEM
  261. FREEMEM
  262. ANZEIGEN
  263. NOTMENUPUNKT
  264. LINKEMAUSTASTE
  265. GADGET_GEDR
  266. GEFUELLT
  267. ASYNCHRONGEDRUCKT
  268. HORIZONTAL
  269. INVERS    GEDRUECKT
  270. LINKE_MAUSTASTE_GEDRUECKT
  271. LINKE_MAUSTASTE_GEDR
  272. BREAK
  273. TOGGLE
  274. VERTIKAL
  275. CENTER
  276. RECHTE_MAUSTASTE_GEDRUECKT
  277. CMAP    BREAK_IFF
  278. COMPLEMENT    INVERSVID
  279. SEITENVERHAELTNIS_GLEICH    VERZERREN
  280. NOTLINKE_MAUSTASTE_GEDRUECKT
  281. NEUER_RASTPORT
  282. KONTINUIERLICH
  283. SQRT    FNMESSAGE
  284. SCHNITTW
  285. SCHNITTS
  286. FNSCHNITTS
  287. XRAST    ENDUPDATE
  288. SCROLLLAYER
  289. SETPREFS
  290. ALLOCMEM
  291. COPYMEM
  292. OPENLIBRARY
  293. MEMORY
  294. AKJKJKJK
  295. DKJDKJ
  296. DK    DKJDKJDKJ
  297. X    BLTBITMAP
  298. SYNCSUPERBITMAP
  299. CREATEUPFRONTLAYER
  300. REM_RECT
  301. CLIPBLIT
  302. POINT
  303. ZEILE
  304. MEMORY
  305. ALLOCMEM
  306. FREEMEM
  307. BITPLANE
  308. POSITION
  309. BREITE
  310. HOEHE
  311. GADGETBREITE
  312. MODUS
  313. DESTB
  314. DESTH
  315. WORTE
  316. VOLLZEILEN
  317. RESTSTIFTE
  318. ZEILE
  319. SCHRITT
  320. SUPERBREITE
  321. SUPERHOEHE
  322. LAYOUTBREITE
  323. LAYOUTHOEHE
  324. XRAST
  325. YRAST
  326. XOFFSET1
  327. YOFFSET1
  328. XOFFSET2
  329. YOFFSET2
  330. XRAST1
  331. YRAST1
  332. XRASTX1
  333. TOXR0
  334. XSTART
  335. YSTART
  336. XZIEL1
  337. YZIEL1
  338. XZIEL2
  339. YZIEL2
  340. WINDBREITE    WINDHOEHE    DATEINAME
  341. HOR_BREITE
  342. DRX    BOXBREITE
  343. BALKENBREITE
  344. BOXHOEHE
  345. BALKENHOEHE
  346. XSSOLL
  347. YSSOLL
  348. XZIEL
  349. YZIEL
  350. F_BREITE
  351. F_HOEHE    F_VP_MODI
  352. B_HOEHE
  353. VP_MODI
  354. OLDPRINTSHADE
  355. INDEX
  356. XMOUSE
  357. YMOUSE    FONTHOEHE
  358. XOFFSET
  359. YOFFSET
  360. QUELLBREITE
  361. QUELLHOEHE
  362. ZIELBREITE    ZIELHOEHE    QUELL_LOX    QUELL_LOY
  363. ZIEL_LOX
  364. ZIEL_LOY    MEMORYPTR
  365. ALLOCPTR
  366. FREEPTR
  367. QUELLY
  368. QUELLX
  369. ZIELTEILUNG_X
  370. ZIELTEILUNG_Y
  371. ZIELRECHTECK_LOX
  372. ZIELRECHTECK_LOY
  373. ZIELRECHTECK_RUX
  374. ZIELRECHTECK_RUY
  375. ZIELX
  376. ZIELY
  377. WINDOWBREITE
  378. OFFSET
  379. INDEX_FIRST
  380. ANZAHL
  381. INDEX_FIRST_OLD    INDEX_AKT
  382. PROP_GAD_HOEHE
  383. INDEX_LAST
  384. TEXTLAENGE
  385. MAX_CHAR    INDEX_ALT
  386. FONTGROESSE
  387. YRU    LOY_LAYER    LOX_LAYER    RUX_LAYER    RUY_LAYER
  388. XSOLL
  389. LAYERBREITE
  390. LAYERHOEHE
  391. SCR_BREITE    SCR_HOEHE
  392. GRAPHIK_BREITE
  393. GRAPHIK_HOEHE
  394. QUELL_X
  395. QUELL_Y    QUELL_RUX    QUELL_RUY
  396. ZIEL_X
  397. ZIEL_Y
  398. ZIEL_RUX
  399. ZIEL_RUY
  400. ZAEHLER
  401. ANFANG
  402. ZIELSPALTE
  403. SIGNUM    ZIELZEILE
  404. GESAMTHOEHE
  405. GESAMTBREITE
  406. LAST_X
  407. LAST_Y
  408. PIXEL
  409. BITPLANE_BREITE
  410. BITPLANE_HOEHE
  411. PUFFER_BITPLANE_BREITE
  412. PUFFER_BITPLANE_HOEHE
  413. MINTERM
  414. FEHLER
  415. WEITER
  416. WINDNR
  417. GRAPHIKWERT
  418. STIFT
  419. RESTSTIFTE
  420. BITNR
  421. VERSION
  422. POLZAHL
  423. PKOLZAHL
  424. ANTWORT
  425. P_SIGBIT
  426. OLDPRINTDENSITIY
  427. OLDPRINTDENSITY
  428. ERROR    SIGNAL_NR
  429. STATUS
  430. RASTER
  431. VERSIONALT
  432. VERION
  433. UNTERMENUPUNKT    MENUPUNKT    MENUTITEL
  434. INDEX
  435. MENUTITELIST
  436. MENUPUNKTIST
  437. STYLE
  438. MUSTER
  439. SPALTE
  440. ZEILE
  441. OBJEKT
  442. SPEC    TEXT_WIND
  443. MAX_SEL_ANZAHL
  444. WIND_NR    GADGET_NR
  445. TOGGLE
  446. MODUS
  447. STIL_ALT
  448. STIL_AKT
  449. AKT_STIL
  450. ALT_STIL
  451. ARBEITS_SCR
  452. ARBEITS_WIND
  453. INDEX_LAST
  454. DUMMY
  455. TIEFE
  456. COMPRESSION
  457. BYTES_ZEILE
  458. BYTES_ZEILE_SCR
  459. BITPLANE_INDEX
  460. BYTES_GESCHRIEBEN
  461. ANZAHL    FUELLBYTE
  462. BYTES_ZEILE_BTM
  463. ZAEHLER
  464. ARBEITSWIND    LINIENART
  465. MUSTER_WIND
  466. DRAWMODE
  467. ZEILENNR
  468. MAUSPOS
  469. GRAPHIKMODUS
  470. EINGANGSVARIABLEN
  471. OFFSETS
  472. OFFSETS_VER1
  473. OFFSETS_VER2
  474. OFFSETS_VER3
  475. FADENKREUZ
  476. RESETED
  477. POINT_RESET    POINT_SET
  478. ENDES
  479. OFFSETS_VER4
  480. ZEIGER
  481. WEITER
  482. SOFORT
  483. QUARK
  484. POINTER_UP
  485. POINTER_DOWN
  486. FONTS
  487. FONTS2
  488. MAUSZEIGER
  489. POINTER_RIGHT
  490. POINTER_LEFT
  491. POINTER_LEFT1
  492. POINTER_RIGHT1
  493. POINTER_UP1
  494. MENUPUNKTE
  495. PDOWN
  496. PLEFT
  497. PRIGHT
  498. PROPGADGET
  499. VERT_PROPGADGET
  500. HORIZ_PROPGADGET
  501. DATEI_LADEN
  502. DATEI_SICHERN
  503. DATEI_DRUCKEN
  504. DATEI_L
  505. SCHEN    DATEI_NEU
  506. DATEI_ENDE
  507. MODUS_ANH
  508. MODUS_EINF
  509. MODUS_
  510. NDERN
  511. MODUS_L
  512. SCHEN
  513. AKTIVIEREN_ANWEISUNG
  514. AKTIVIEREN_WHILE
  515. AKTIVIEREN_REPEAT
  516. AKTIVIEREN_ZWEIFACHVERZ
  517. AKTIVIEREN_MEHRFACHVERZ
  518. AKTIVIEREN_UNTERPROGRAMM
  519. FIGUREN_LINIE
  520. FIGUREN_BOX
  521. FIGUREN_LINIENZUG
  522. RECTIN
  523. FIGUREN_KREIS
  524. FIGUREN_PUNKT
  525. INIT_BITMAP
  526. ALERT
  527. CLOSE_BITMAP
  528. AUFRAEUMEN
  529. INFO_LAYER
  530. INFO_BITMAP
  531. KEYBOARD
  532. ELSEIF
  533. MESSAGE
  534. GRAPHICDUMP
  535. DATEI_DRUCKEN1
  536. FADENGRAFIK
  537. PLOT    FUNKTIONS
  538. LAYOUT_LADEN
  539. LAYOUT_SICHERN
  540. LAYOUT_DRUCKEN
  541. LAYOUT_SPEICHER_DRUCKEN
  542. LAYOUT_DISK_DRUCKEN
  543. LAYOUT_L
  544. SCHEN
  545. GOSUB
  546. LAYOUT_LOESCHEN
  547. LAYOUT_INITIALISIEREN
  548. LAYOUT_ENDE
  549. LAYOUT_SPEICHER_DRUCKEN1
  550. LAYOUT_INTIALISIEREN
  551. ELEMENTE_LOETAUGE
  552. ELEMENTE_LOETAUGE2
  553. ELEMENTE_LOETAUGE1
  554. ELEMENTE_VERBINDUNG
  555. LOCAL
  556. ELEMENTE_IC
  557. LOETAUGE
  558. ELEMENTE_VERBINDUNG_1
  559. ELEMENTE_VERBINDUNG_2
  560. LOESCHEN
  561. SONSTIGES_LOESCHEN
  562. GRAPHICSAVE
  563. LAYOUT_SICHERN1
  564. PROPGADGETS
  565. SONSTIGES_RAHMEN
  566. RAHMEN
  567. FEHLER
  568. ELEMENTE_VERBINDUNG_3
  569. LAYOUT_SPEICHER_DRUCKEN2
  570. HARDCOPY
  571. LAYOUT_SPEICHER_DRUCKEN3
  572. MULTI_AUFRAEUMEN
  573. SINGLE_TASK_DRUCKEN
  574. LAYOUT_MULTI_DRUCKEN
  575. LAYOUT_MULTI_TASK_DRUCKEN
  576. LAYOUT_MULTITASK_DRUCKEN    PROCEDURE
  577. QUARK
  578. LAYOUT_VERBINDUNG
  579. ELEMENTE_TRANSISTORFASSUNG
  580. ELEMENTE_TRANSISTORFASSUGN
  581. SONSTIGES_TEXT
  582. LAYOUT_ASYNCHRON_DRUCKEN
  583. SYNCHRON_AUFRAEUMEN
  584. ASYNCHRONDRUCK_AUFRAEUMEN
  585. SYNCHRON_DRUCKEN
  586. ASYNCHRONGEDRUCKT_AUFRAEUMEN
  587. TEXT_ZEILE
  588. MENUBEHANDLUNG
  589. EREIGNISBEHANDLUNG
  590. MANUELLSCROLLING
  591. MANUELL_SCROLLING
  592. AKTIVIERE_ROM_ZEICHENSATZ
  593. AKTIVIERE_DISK_ZEICHENSATZ
  594. AKTIVIERE_ZEICHENSATZ
  595. SCHRIFTART
  596. MANIPULATIONEN_KOPIEREN
  597. UNTIL
  598. DEBUG    SCROLLING
  599. PUT#MANIPULATIONEN_KOPIEREN_VERSCHIEBEN
  600. MANIPULATIONEN_VERZERREN
  601. AUSGABE
  602. SPEZIAL_INTERPOLIEREN
  603. SPEZIAL_INTERPOLIEREN_METHODE1
  604. SPEZIAL_INTERPOLIEREN_ABTRAGEN
  605. SPEZIAL_INTERPOLIEREN_AUFF
  606. SPEZIAL_OUTLINE
  607. SPEZIAL_RAHMEN
  608. SPEZIAL_MUSTER_EINSTELLEN
  609. WHILE
  610. SPEZIAL_F
  611. SPEZIAL_BEREICH_F
  612. MANIPULATIONEN_DREHEN    BILDPUNKT
  613. DEBUYA
  614. DEBUGA
  615. SONSTIGES_FED_LADEN
  616. GRAPHIK_PUNKT
  617. GRAPHIK_LINIE
  618. GRAPHIK_OBJEKT
  619. MANIPULATIONEN_INVERTIEREN
  620. MANIPULATIONEN_LOESCHEN
  621. SHOW_REGION
  622. LAYOUT_SYNCHRON_DRUCKEN
  623. TEXT_ZEILE_ALT
  624. TEXT_ZEILE_ITEXT
  625. RECTIN_SPIEGELN
  626. MANIPULATIONEN_SPIEGELN
  627. REFRESH
  628. SONSTIGES_UNDO
  629. MANIPULATIONEN_ZENTRIEREN
  630. SPEZIAL_FARBEN_TAUSCHEN
  631. SONSTIGES_FARBEN_TAUSCHEN
  632. GRAPHIK_PINSEL
  633. TEXT#TEXT_BENUTZEROBERFLAECHE_AUFRAEUMEN
  634. SELECTOR_REFRESH
  635. MODIFYTPROP    TESTFONTS
  636. TEXT_BENUTZEROBERFLAECHE
  637. FONTS_VERZEICHNIS
  638. STRING_GADGET
  639. BOOLEAN_TGADGET
  640. PROP_GADGET
  641. BOOLEAN_IGADGET
  642. REM_GADGET    TEXT_INIT"TEXT_BENUTZEROBERLAECHE_AUFRAEUMEN
  643. TEXT_ZEILE_1
  644. TEXT_AUSWERTUNG
  645. TEXT_DARSTELLUNG
  646. INIT_ARBEITSFLAECHE
  647. MAUSZEIGER
  648. PULL_DOWN_MENU
  649. PREFERENCES
  650. INIT_OLD
  651. INIT_IMAGES
  652. POINTER_LEFT
  653. POINTER_RIGHT1
  654. SELECT
  655. MODIFYPROP
  656. NEWMODIFYPROP
  657. INIT_MAUSZEIGER
  658. INIT_PULL_DOWN_MENU
  659. CREATEUPFRONTLAYER    INIT_TEXT
  660. INIT_TEXT_BENUTZEROBERFLAECHE
  661. INIT_FONTS_VERZEICHNIS
  662. INIT_TESTFONTS
  663. INIT_TESTFONTS_VERZEICHNIS#AUFRAEUMEN_TEXT_BENUTZEROBERFLAECHE
  664. INIT_PREFERENCES
  665. INIT_UNDO_BITMAP
  666. RETRURN
  667. GLOBAL_VARIABLES
  668. TPROP_GADGET
  669. AUFRAEUMEN_ASYNCHRONDRUCK
  670. AUFRAEUMEN_ASYNCHRON
  671. CHANGE_STYLE
  672. TEXT_CHANGE_STYLE
  673. TEXT_CHANGE_FONT
  674. TEXT_SELECTOR_REFRESH
  675. DRAW_IMAGE
  676. O_TEXT_DARSTELLUNG
  677. INIT_SBITMAP
  678. INIT_TEXT_MASKE
  679. INIT_ARBEITS_MASKE
  680. INIT_ARBEITS_SCR
  681. INIT_SLAYER
  682. INIT_ARBEITS_WIND
  683. INIT_TEXT_WIND
  684. INIT_ARBEITS_GADGETS
  685. INIT_FONT_VERZEICHNIS
  686. LAYOUT_NEU
  687. LAYOUT_LADEN_IFF
  688. BMHD_LESEN
  689. BODY_LESEN
  690. LAYOUT_INIT
  691. LAYOUT_LADEN_INTERN
  692. LAYOUT_SICHERN_INTERN
  693. LAYOUT_SICHERN_IFF
  694. LAYOUT_MISCHEN_INTERN
  695. LAYOUT_MISCHEN
  696. GRAPHIK_KURVE    GRAPHIK_K
  697. GRAPHIK_TEST_KURVE%MANIPULATIONEN_KOPIEREN_VERSCHIEBEN_O
  698. RECTIN2
  699. BREITE_VERKLEINERN
  700. BREITE_VERGROESSERN
  701. HOEHE_VERKLEINERN
  702. HOEHE_VERGROESSERN
  703. MANIPULATIONEN_VERZERREN_1
  704. MANIPULATIONEN_SPIEGELN1$MANIPULATIONEN_KOPIEREN_VERSCHIEBEN1
  705. GROESSE_AENDERN
  706. SPEZIAL_GESAMTANSICHT
  707. SONSTIGES_GESAMTANSICHT
  708. SPEZIAL_FL
  709. CHE_F
  710. SPEZIAL_FLAECHE_FUELLEN
  711. SPEZIAL_FUELLEN
  712. RECTFILL
  713. SPEZIAL_BEREICH_FUELLEN    GRAPHMODE
  714. SPEZIAL_BOLD
  715. SPEZIAL_SHADOW
  716. SPEZIAL_SHADOW_EINST
  717. SPEZIAL_MUSTER_DEFINIEREN
  718. SPEZIAL_MUSTER_WAEHLEN
  719. HISTORY
  720. PAUSE
  721. WARTEN
  722. BMHD_LESEN_2
  723. BODY_LESEN_2
  724. REM_RECT
  725. LAYOUT_MISCHEN_ALT
  726. GRAPHIK_FREIHAND
  727. CURVEX
  728. CURVEY
  729. MESSAGE
  730. SCHNITTS
  731. SCHNITTW
  732. XRAST
  733. YRAST
  734. XRASTH
  735. YRASTH
  736. TAUGE
  737. LOETAUGE
  738. WINKEL
  739. XMOUSE
  740. YMOUSE    SAVE_RECT
  741. REM_RECT
  742. REMRECT
  743. SPEICHERBEDARF
  744. REM_REMRECT
  745. MOUSEX
  746. XMOUSEX
  747. GRAPHIKMODUS
  748. TOGGLE
  749. PIXEL
  750. PIXELX
  751. PIXELY
  752. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  753.                                                   Datei MULTITEXT100.GFA
  754.                                                   (bzw. MULTITEXT100.ASC)
  755.                             MultiText
  756.                             =========
  757.     Version 1.00
  758.     Programm zum Generieren der unterschiedlichsten Schriften
  759.     und Graphiken sowie deren Ausdruck auf Matrixdruckern
  760.     Copyright by Wolfgang Schuler (WKS), 04.-10.1990
  761. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  762. Zuwenig Speicherplatz!
  763.  (Auch bei der Initialisierung kann das Prg. abge-
  764.  brochen werden m
  765. ssen!)
  766.  In den meisten Prozeduren kann ein Menupunkt auf-
  767.  gerufen werden!
  768. ============================ Initialisierung ================================
  769. Nimmt alle Initialisierungen des Programms MultiText unter Verwendung der
  770. Initialisierungsunterprozeduren vor.
  771.  MultiText 1.00 by WKS 
  772.  M&T 1992FF
  773.  Programmname
  774.  Screen-, Windowtitel voreinstellen
  775.            F
  776.  Aktuellen Datei-Zugriffspfad setzen
  777.  Images initialisieren
  778.  (203.2mm * 240.0mm: DIN A4 Einzelblatt)
  779.  Versuchen, Superbitmap anzulegen
  780. Zuwenig Speicherplatz!!
  781.  Verzeichnis aller verf
  782. gbaren Fonts aufbauen
  783.  Aufbau des folgenden Window-Aufbaus unsichtbar machen
  784.  Fenster f
  785. r Texteingabe und zugeh
  786. rige Eingabemaske generieren
  787.  Arbeitsfl
  788. chen-Fenster aufbauen
  789.  Super-Layer darauf installieren
  790. Probleme mit|Super-Layer!
  791.  Gadgets des Arbeitsfl
  792. chen-Fensters
  793. $Kein Speicher f
  794. r|Preferences-Puffer!
  795. 'Zuwenig Speicherplatz|f
  796. r Undo-Funktion!
  797. TextFont-Struktur des aktuellen Fonts feststellen:
  798. Aktuelles Muster voreinstellen:
  799. Liest die Daten der Images ein, die f
  800. r die Gadgets ben
  801. tigt werden.
  802. &X1111111111111111
  803. &X1100000000000011
  804. &X1100000110000011
  805. &X1100001111000011
  806. &X1100011111100011
  807. &X1100111111110011
  808. &X1101111111111011
  809. &X1100011001100011
  810. &X1100011001100011
  811. &X1100011001100011
  812. &X1100011111100011
  813. &X1100000000000011
  814. &X1111111111111111
  815. &X1111111111111111
  816. &X1100000000000011
  817. &X1100011111100011
  818. &X1100011001100011
  819. &X1100011001100011
  820. &X1100011001100011
  821. &X1101111111111011
  822. &X1100111111110011
  823. &X1100011111100011
  824. &X1100001111000011
  825. &X1100000110000011
  826. &X1100000000000011
  827. &X1111111111111111
  828. &X11111111111111111111111111000000
  829. &x11000000000000000000000011000000
  830. &x11000000111000000000000011000000
  831. &x11000011111111111111100011000000
  832. &x11001111111000000001100011000000
  833. &x11000011111111111111100011000000
  834. &x11000000111000000000000011000000
  835. &x11000000000000000000000011000000
  836. &x11111111111111111111111111000000
  837. &X11111111111111111111111111000000
  838. &x11000000000000000000000011000000
  839. &x11000000000000011100000011000000
  840. &x11000111111111111111000011000000
  841. &x11000110000000011111110011000000
  842. &x11000111111111111111000011000000
  843. &x11000000000000011100000011000000
  844. &x11000000000000000000000011000000
  845. &x11111111111111111111111111000000
  846. Versucht, die Superbitmap anzulegen. Im Fehlerfall ist superbitmap%=0.
  847. Umrechnung mm in Pixel:
  848.  MEMF_CLEAR, MEMF_CHIP
  849. Basisadresse der ersten und einzigen Bitplane:
  850.  (Zuwenig Speicherplatz f
  851. r Bitplane)
  852. Adresse der Super-Bitplane in die Bitmap-Struktur eintragen:
  853. ffnet den Screen f
  854. r das Programm und liest wichtige Werte aus der
  855. Screen-Struktur aus.
  856.  Nummer des Screens f
  857. r das Programm
  858.  Arbeits-Screen 
  859. ffnen
  860.  Farben setzen
  861.  Adresse der Layerinfo-Struktur
  862.  Supergrafikbuch, S.168
  863.  Supergrafikbuch, S.209
  864. Legt das Arbeitsfl
  865. chenfenster an.
  866.  Nummer des Windows f
  867. r die Arbeitsfl
  868. Versucht, auf dem Arbeits-Window (Nummer arbeits_wind|) einen Super-
  869. Layer einzurichten, im Fehlerfall ist superlayer%=0.
  870. erdem wird um den Layer eine Box gezeichnet, die auf dem
  871. Arbeitswindow liegt.
  872. Zu initialisierende Variablen:
  873.  Adresse des normalen Window-Rastports
  874.  Adresse der normalen Window-Bitmap
  875. (Koordinaten des Layers sind auf linke obere Ecke des Screens bezogen (0,0))
  876. (CreateUpFrontLayer() unter GFA falsch implementiert!)
  877.  Wenn superlayer%<>0, also Super-Layer existiert
  878. (Permanente Deaktivierung des Layers durch eintragen der Fensteradresse
  879. in die Layer-Struktur)
  880. (Das Langwort ab layer%+40 ist ein Zeiger auf das Window)
  881. (Wichtig, auch f
  882. r Messagebehandlung, ansonsten Speicherverlust)
  883.  Adresse der Super-Rastport-Struktur
  884. (Offsets: xoffset: 4, yoffset: 22)
  885. Benutzeroberl
  886. chen-Gestaltungselemente erzeugen:
  887. XF     Ausgaben auf Arbeitswindow!
  888.  Rahmen um Layer
  889.  Senkrechte Linien verst
  890. Superbitmap s
  891. ubern:
  892. Installiert die Gadgets auf der Arbeitsfl
  893. (Balkenl
  894. nge darf nicht gr
  895. er werden als Reglerbereich!)
  896. Richtet auf dem aktuellen Window einen neuen Mauszeiger ein.
  897.  17 Langworte, 17 Zeilen
  898. &X00000000000000000000000000000000
  899. &X00000000000000001111000000000000
  900. &X01100000000000001001000000000000
  901. &X01000000000000001011111000000000
  902. &X00011100000000001110001000000000
  903. &X00010000000000000010111111000000
  904. &X00010111100000000010100001000000
  905. &X00000100000000000011101111111000
  906. &X00000101111100000000101000001000
  907. &X00000101000000000000101011111000
  908. &X00000001000000000000111010000000
  909. &X00000001000000000000001010000000
  910. &X00000001000000000000001010000000
  911. &X00000000000000000000001110000000
  912. &X00000000000000000000000000000000
  913. &X00000000000000000000000000000000
  914. &X00000000000000000000000000000000
  915. Pull-Down-Menu erzeugen.
  916.  Layout, Laden, Sichern,------------------, Mischen
  917. ------------------, Drucken,------------------, Neu
  918.  Initialisieren,------------------, Ende,""
  919.  Text, Zeile eingeben     ,""
  920.  Manipulation, Kopieren, Verschieben, Zentrieren, Invertieren
  921.  Drehen, Spiegeln,! Vertikalachse,! Horizontalachse
  922. ndern, Verzerren,------------------, Bereich l
  923. schen,""
  924.  Spezial, Interpolieren,!   Abtragen,!   Auff
  925. --------------------, Rahmen,--------------------, Bold, Outline, Shadow
  926. --------------------, F
  927. llen, Bereich f
  928. llen,--------------------
  929.  Muster w
  930. hlen, Muster definieren,""
  931.  Graphik, Freihand,! kontinuierlich,! unterbrochen, Linie, Rechteck, Kreis, Ellipse, Kurve,----------, Pinsel,""
  932.  Optionen, Graphikmodus,!   transparent,!   replace,!   XOR,!   AND
  933. --------------, Linienart,!   durchgezogen,!   gestrichelt,!   punktiert
  934. !   strichpunktiert,--------------, Mausposition,!   aus,!   mm,!   Pixel,""
  935.  Sonstiges, Undo,------------------, Gesamtansicht,------------------
  936.  NewShell, Fed,------------------, Farben tauschen,""
  937. Pull-Down-Menu initialisieren ( Voreinstellungen, H
  938. kchen):
  939. !   transparent
  940. !   durchgezogen
  941. !   ausF
  942.  Zeile eingeben     Fg
  943.  voreingestellter Graphikmodus: transparent (JAM1)
  944.  voreingestellte Linienart: durchgezogen
  945.  Mausposition wird nicht angezeigt (1: Mausposition
  946.                     ! wird in cm, 2: Mausposition wird in Pixeln angezeigt)
  947. Stellt Druck-Preferences so ein, da
  948.  der Ausdruck des Arbeitsfl
  949. chen-
  950. inhalts in der gew
  951. nschten Weise erfolgt. Steht nicht gen
  952. gend Speicher-
  953. platz f
  954. r den Puffer zur Verf
  955. gung, so ist prefs_puffer%=0.
  956.  F     Achtung: hier nicht GetPrefs!
  957.                                         (GFA 3.041 Fehler)
  958.  Alte Werte retten
  959.  Schwarz-Wei
  960. -Darstellung
  961.  Druckdichte 1 (120dpi*72dpi)
  962.  Neue Einstellungen aktivieren
  963. r die Undo-Funktion mu
  964.  eine eigene (unsichtbare) Bitmap angelegt
  965. werden, die mittels der Prozedur refresh mit der normalen (Arbeitsfl
  966. chen-)
  967. Bitmap vor Ver
  968. ndern der Arbeitsfl
  969. che synchronisiert wird. So re-
  970. sentiert die "Undo-Bitmap" immer den Zustand der "Arbeits-Bitmap"
  971. vor der letzten Ver
  972. nderung. Bei Bedarf wird die Arbeits-Bitmap mit der
  973. Undo-Bitmap synchronisiert, so da
  974.  die letzte Operation auf der Arbeits-
  975. Bitmap r
  976. ngig gemacht ist. Das Anlegen der Undo-Bitmap ist die
  977. Aufgabe dieser Prozedur. Ist das Generieren der Undo-Bitmap gescheitert,
  978. so enth
  979. lt die globale Variable undo_bitmap% den Wert 0.
  980.  MEMF_CLEAR, MEMF_PUBLIC
  981.  (in die Bitmap-Struktur eintragen)
  982. Fe     Undo-Bitmap mit Arbeits-Bitmap synchronisieren (hier s
  983. ubern)
  984. Legt ein alphabetisches Verzeichnis in dem Zeichenkettenfeld fonts$() der
  985. im Systemverzeichnis FONTS: vorhandenen Fonts an.
  986. Die Fontbezeichnungen sind nach der Prozedur in dem globalen Zeichenketten-
  987. feld font$() von font$(1) bis font$(anzahl&).
  988. Dabei 
  989. ffnen der Diskfont-Library.
  990. diskfont.library
  991. Auslesen der Struktur:
  992.  Anzahl der vorhandenen Fonts
  993.  Stringarray entsprechend gro
  994.  dimensionieren
  995.                      DISK   FF
  996.  (28 Zeichen)
  997.                      RAM    FF
  998.  30 Zeichen f
  999. r den Fontnamen
  1000.  Fontname
  1001.  5 Zeichen f
  1002. r die Fontgr
  1003.  Fontgr
  1004.  Jedes Element hat damit eine
  1005. nge von 63 Zeichen.
  1006.  In aufsteigender alphabetischer Reihenfolge sortieren
  1007. Zuwenig Speicherplatz!
  1008.  OK !
  1009. diskfont.library fehlt!
  1010.  OK !
  1011. Erzeugt die Benutzeroberfl
  1012. che f
  1013. r die Texteingabefunktion
  1014. (12 Gadgets)
  1015. Konstanten:
  1016. Name des voreingestellten Fonts:
  1017. ?topaz.font                        8                     RAM    F
  1018.  Anzahl der maximal im Fontselektor darstellbaren Eintr
  1019.  Nummer des Windows
  1020. TexteingabeF
  1021. TEXT:F(
  1022. Fontselektor und zugeh
  1023. rige Gadgets:
  1024. FONT:Fh
  1025. ?Fontname                       Gr
  1026. e                   RAM/DISKF
  1027. Topaz 8 - Font finden:
  1028.  Anzahl Fonts <= Zeilen im Selektor
  1029.  Anzahl Fonts > Zeilen im Selektor
  1030.  Topaz-Font kann in die
  1031.  oberste Zeile geschrieben
  1032.  werden
  1033. ( Kann nicht ...
  1034. Fonts in Selector schreiben:
  1035. Aktiven (Topaz-8) Font markieren:
  1036. Gadgets f
  1037. r Scrolling installieren:
  1038. (Balkenl
  1039. nge darf nicht gr
  1040. er werden als Reglerbereich!)
  1041. STIL:F
  1042. Unterstrichen!
  1043. Kursiv!
  1044. Fett!
  1045. Outline!
  1046. SATZ:F
  1047.     Zentriert!
  1048. Abbruch!
  1049.  Default-Stil: Normal
  1050. =============================================================================
  1051. ================================ Aufr
  1052. umen ==================================
  1053. Diese Prozedur gibt s
  1054. mtlichen allokierten Speicherplatz zur
  1055. ck und
  1056. scht alle initialisierten Objekte.
  1057. umen des Font-Equipments:
  1058.  Urspr
  1059. nglichen (ROM-)Font setzen!
  1060. Wenn im Multitasking gedruckt wurde, dann ben
  1061. tigte Strukturen an das
  1062. System zur
  1063. ck und Device-Kanal schlie
  1064. Speicherplatz der Super-Bitmap-Struktur zur
  1065. ck, wenn sie existierte:
  1066. Speicherplatz der Super-Bitplane zur
  1067. Benutzeroberfl
  1068. che f
  1069. r Textfunktion schlie
  1070. Speicherplatz der Gadgets zur
  1071. Speicherplatz des Super-Layers zur
  1072. ck, wenn er existierte:
  1073. Alte Preferences-Einstellungen wieder herstellen:
  1074.  Alte Preferences-Einstellungen
  1075. Speicherplatz f
  1076. r "Undo-Bitmap" zur
  1077. ck, falls sie existierte:
  1078. Gibt alle beim Multitasking-Druck ge
  1079. ffneten Strukturen frei.
  1080. Teste, ob Druckvorgang noch andauert:
  1081. *Druckvorgang dauert noch an.|Bitte warten!!
  1082.  Warten, bis Druckvorgang fertig
  1083. Beim Drucken trat Fehler|NR.
  1084.  auf!!
  1085. Entfernt alle im Texteingabe-Fenster vorhandenen Gadgets und gibt
  1086. ihren belegten Speicherplatz zur
  1087. =============================================================================
  1088. ========================= Message- und Menubehandlung =======================
  1089. schen (FALSE setzen)
  1090.  Kennummer des evt. eingetretenen Ereignisses
  1091.  Adresse des evt. betreffenden Objekts
  1092.  Kennummer des evt. angew
  1093. hlten Menupunkts
  1094.  Speicherplatz (f
  1095. r Int.-Msg.-Strukt.) zur
  1096.  Wenn ein Gadget gedr
  1097. ckt wurde
  1098.  (Adresse ist dann in adresse% zu finden
  1099.  Wenn ein Gadget losgelassen wurde
  1100.  (Adresse ist dann in adresse% zu finden
  1101.  Intuiticks (periodische Nachricht von
  1102.                         ! Intuition (hier zur Aktualisierung der
  1103.                         ! Mauspositionsanzeige.
  1104.  Ausgabe in mm
  1105.  X / Y - Position in mm: 
  1106.  mauspos|=2, Ausgabe in Pixeln
  1107.  X / Y - Position in Pixeln: 
  1108.  Close-Gadget wurde gedr
  1109.  Wenn rechte Maustaste gedr
  1110.  Wenn Menupunkt angw
  1111.      Menu finden
  1112.  Menupunkt finden
  1113.  Untermenupunkt finden
  1114. Verzweigt in Abh
  1115. ngigkeit des durch den Benutzer gew
  1116. hlten Menupunkts
  1117. zu der entsprechenden Prozedur.
  1118.  Ereignis gilt damit als bearbeitet
  1119.  LadenF
  1120.  SichernF
  1121.  MischenF
  1122.  DruckenF
  1123.  NeuF
  1124.  InitialisierenF
  1125.  EndeFi
  1126.  Zeile eingeben     F
  1127.      KopierenFD
  1128.  VerschiebenF
  1129.  ZentrierenF 
  1130.  InvertierenF
  1131.  DrehenFr
  1132. ! HorizontalachseFz
  1133. ! VertikalachseFc
  1134. ndernF
  1135.  VerzerrenF
  1136.  Bereich l
  1137. schenF
  1138. !   AbtragenF
  1139. !   Auff
  1140. llenFi
  1141.  RahmenF
  1142.  BoldF-
  1143.  OutlineF
  1144.  ShadowF
  1145. llenFl
  1146.  Bereich f
  1147. llenFg
  1148.  Muster w
  1149. hlenF
  1150.  Muster definierenF
  1151. ! kontinuierlichF
  1152. ! unterbrochenF
  1153.  LinieF
  1154.      RechteckFF
  1155.  KreisF
  1156.  EllipseF
  1157.  KurveF
  1158.  PinselFF
  1159. !   transparentF
  1160.  bisherigen Haken l
  1161. schen
  1162.  neuen Haken setzen
  1163. !   replaceFn
  1164.  bisherigen Haken l
  1165. schen
  1166.  neuen Haken setzen
  1167. !   XORFc
  1168.  bisherigen Haken l
  1169. schen
  1170.  neuen Haken setzen
  1171. !   ANDFc
  1172.  bisherigen Haken l
  1173. schen
  1174.  neuen Haken setzen
  1175. !   durchgezogenF
  1176.  bisherigen Haken l
  1177. schen
  1178.  neuen Haken setzen
  1179. !   gestricheltF 
  1180.  bisherigen Haken l
  1181. schen
  1182.  neuen Haken setzen
  1183. !   punktiertFF
  1184.  bisherigen Haken l
  1185. schen
  1186.  neuen Haken setzen
  1187. !   strichpunktiertFd
  1188.  bisherigen Haken l
  1189. schen
  1190.  neuen Haken setzen
  1191. !   ausFF
  1192.  Wegen XOR erforderlich
  1193.  bisherigen Haken l
  1194. schen
  1195.  neuen Haken setzen
  1196.  Titel l
  1197. schen
  1198. !   mmF
  1199.  bisherigen Haken l
  1200. schen
  1201.  neuen Haken setzen
  1202.     !   PixelF-
  1203.  bisherigen Haken l
  1204. schen
  1205.  neuen Haken setzen
  1206.  UndoF
  1207.  GesamtansichtF
  1208.  FedF
  1209. :Tools/Fed!
  1210.      NewShellF-
  1211. NewShell!
  1212.  Farben tauschenF
  1213.  HilfeF
  1214. Ein Gadget wurde gedr
  1215. ckt, abh
  1216. ngig von der in adresse% stehenden
  1217. Gadget-Adresse wird entweder das horizontale oder das vertikale Prop.-Gadget
  1218. abgefragt bzw. auf das Bet
  1219. tigen der Boolean-Gadgets reagiert.
  1220. Dies geschieht solange, bis das bet
  1221. tigte Gadget wieder losgelassen wird.
  1222. Es ist n
  1223. tig, adresse% in adr% zu sichern, da sich adresse% bei dem
  1224. erneuten Aufruf der message-Prozedur in der Schleife 
  1225. ndern kann
  1226. =============================================================================
  1227. ================================= Menu "Layout" =============================
  1228. dt ein Layout (Bitmap-Graphik) im IFF-ILBM-Format. Es werden IFF-Bilder
  1229. geladen, die folgenden Anspr
  1230. chen gen
  1231. - eine Bitplane (Tiefe=1)
  1232. - Breite, H
  1233. he innerhalb der zul
  1234. ssigen Ma
  1235. CMAP- und CAMG-Chunk werden nicht ausgewertet, es k
  1236. nnen also auch LORES-
  1237. Bilder geladen werden.
  1238. Laden / IFF-ILBM!
  1239. Load!
  1240.  (Wenn dateiname$="" wurde Abbruchknopf angew
  1241. Keine Datei!!
  1242. Datei existiert nicht!!
  1243.  aktuellen Pfad setzen
  1244.  MEMF_CLEAR, MEMF_PUBLIC
  1245.  (Wenn Dateil
  1246. nge < 12)
  1247. Keine IFF-ILBM-Datei!!
  1248.  12 ersten Bytes einlesen. Und auswerten:
  1249. ILBMF
  1250. Keine IFF-ILBM-Datei!!
  1251. Bitte warten!Fn
  1252. BMHDF
  1253. BODYF
  1254. Unbekannten Chunk 
  1255. berspringen:
  1256.  Speicher f
  1257. r Puffer freigeben
  1258.  Datei wieder schlie
  1259. Sichert den Inhalt der aktuellen Arbeitsfl
  1260. chenbitplane im IFF-Format
  1261. unter einem vom Benutzer zu bestimmenden Dateinamen. Die Daten werden
  1262. in unkomprimierten Format abgespeichert.
  1263. Anzahl der Bytes, die die Bitplane beansprucht, berechnen:
  1264. Sichern / IFF-ILBM!
  1265. Save!
  1266. Keine Datei!!
  1267.  Zugriffspfad aktualisieren
  1268.  Kennung IFF anh
  1269. .IFFF
  1270. 'Datei existiert bereits!|
  1271. berschreiben?!
  1272. Nein|Ja!
  1273.  antwort|=0, wenn Datei nicht existiert
  1274. fen, ob Laufwerk voll:
  1275. nge der zu 
  1276. berschreibenden Datei ermitteln
  1277. Zuwenig Platz auf Laufwerk!
  1278.  MEMF_CLEAR, MEMF_PUBLIC
  1279. Zuwenig Speicherplatz!!
  1280. Bitte warten!F
  1281. CAMG-, BMHD-, CMAP-Chunks in Puffer schreiben:
  1282. FORM FC
  1283.  Gesamtl
  1284. nge (ohne "FORM")
  1285. ILBM F
  1286. BMHD F
  1287.  BMHD-L
  1288.  Tiefe
  1289.  xaspect
  1290.  yaspect
  1291.  Screen-Breite
  1292.  Screen-H
  1293. CMAP FG
  1294.  CMAP-L
  1295. CAMG Fn
  1296.  CAMG-L
  1297.  Viewmode: HIRES
  1298. BODY F=
  1299.  Inhalt der Window-Bitmap -> Superbitmap
  1300.  Bitplane-Inhalt speichern
  1301. dt ein Layout (Bitmap-Graphik) im IFF-ILBM-Format in die aktuelle
  1302. Arbeitsfl
  1303. che. Die Graphik mu
  1304.  dabei folgenden Anspr
  1305. chen gen
  1306. - Breite und H
  1307. he nicht gr
  1308. er als die entsprechenden Ma
  1309. e der
  1310.   Arbeitsfl
  1311. - eine Bitplane (Tiefe=1)
  1312. CMAP- und CAMG-Chunk werden nicht ausgewertet, es k
  1313. nnen also auch LORES-
  1314. Bilder geladen werden.
  1315. Mischen / IFF-ILBM!
  1316. Load!
  1317. Nicht mit DIR$(0) arbeiten! (Sonst Speicherplatzfressen)
  1318.  (Wenn dateiname$="" wurde Abbruchknopf angew
  1319. Keine Datei!!
  1320. Datei existiert nicht!!
  1321.  MEMF_CLEAR, MEMF_PUBLIC
  1322.  (Wenn Dateil
  1323. nge < 12)
  1324. Keine IFF-ILBM-Datei!!
  1325.  12 ersten Bytes einlesen. Und auswerten:
  1326. ILBMF
  1327. Keine IFF-ILBM-Datei!!
  1328.      Superbitmap --> Undo-Bitmap
  1329. (Es ist wichtig, die zweite Bedingung zu 
  1330. berpr
  1331. fen, weil nach dem
  1332. letzten Chunk noch 1 Byte kommen kann (F
  1333. llbyte?), das bei Inter-
  1334. pretation als Chunk zur Fehlermeldung "Fileende erreicht" f
  1335. Es werden nur die Chunks BMHD und BODY ausgewertet.
  1336. BMHDF
  1337. BODYF
  1338. Unbekannten Chunk 
  1339. berspringen:
  1340. Rastport-Inhalt solange dem Mauszeiger folgen lassen, bis linke
  1341. Maustaste gedr
  1342. ckt wird:
  1343.  Speicher f
  1344. r Puffer freigeben
  1345.  Datei wieder schlie
  1346. Liest den BMHD (BitMapHeaDer)-Chunk (Amiga Intern 2, S.298) und
  1347. initialisiert gem
  1348.  den Angaben in diesem Chunk eine Arbeitsfl
  1349. (Der BMHD-Chunk ist immer 20 Bytes lang.)
  1350.  Gesamten Chunk in Pufferspeicher einlesen
  1351.  Breite der Graphik
  1352. he der Graphik
  1353.  Tiefe des Screens (= Anzahl Bitplanes)
  1354.  Kompressionsverfahren
  1355. Arbeitsfl
  1356. che demgem
  1357.  initialisieren:
  1358. Nur einfarbige Graphiken!!
  1359. (Arbeitsfl
  1360. che soll belassen werden und neuer Rastport gem
  1361.  den Ma
  1362.  der Graphik initialisiert werden)
  1363. +Graphik zu gro
  1364. r|aktuelle Arbeitsfl
  1365. che!!
  1366. Zuwenig Speicherplatz!!
  1367. Zuwenig Speicherplatz!!
  1368. (Arbeitsfl
  1369. che soll gem
  1370.  den Ma
  1371. en der Graphik initialisiert werden)
  1372. 33333
  1373.  (Breite/H
  1374. he in mm)
  1375. e falsch!!
  1376. Liest den BODY-Chunk und 
  1377. bertr
  1378. gt die Daten in die zuvor beim Lesen des
  1379. BMHD-Chunks (Prozedur bmhd_lesen) ge
  1380. ffneten Bitmap. Dabei k
  1381. nnen un-
  1382. komprimierte und nach dem ByteRun1-Verfahren komprimierte Daten gelesen
  1383. werden. Die Kompressionsart wurde beim Lesen des BMHD-Chunk ermittelt.
  1384.  BMHD-Chunk mu
  1385.  bereits gelesen sein!
  1386.  Bytes pro Zeile der Graphik
  1387.  Bytes pro Zeile der Bitmap
  1388.  unkomprimiert
  1389.  nach ByteRun1-Verfahren komprimiert
  1390.  Wenn Chunkl
  1391. nge ungerade, noch das
  1392. llbyte lesen, sonst wird in chunk_lesen
  1393.  versucht, weitere Chunks zu lesen, wobei
  1394.                         ! das Fileende erreicht wird.
  1395. "Unbekanntes|Kompressionsverfahren!!
  1396.  BODY-Chunk 
  1397. berlesen
  1398. &Chunks fehlen|bzw. Reihenfolge falsch!!
  1399.  F     BODY-Chunk 
  1400. berlesen
  1401. glicht Multitasking-Druck. Ist zuwenig Speicherplatz vorhanden
  1402. oder tritt sonst ein Fehler auf, so wird single-task gedruckt
  1403. (Prozedur synchron_drucken wird aufgerufen).
  1404. Wirklich drucken?!
  1405.  Ja | Nein !
  1406. Superbitmap mit normaler Bitmap synchronisieren:
  1407. ~CopySBitMap(superlayer%) ! Komplement
  1408. re Funktion
  1409. Parameter f
  1410. r Druckausgabe setzen:
  1411. Wenn schon einmal im Multitasking gedruckt wurde, dann die benutzten
  1412. Strukturen und Kan
  1413. le schlie
  1414. en und benutzten Speicher zur
  1415. ckgeben:
  1416. Sichern des Superrastports:
  1417. ;Leider zuwenig Speicher|f
  1418. r Multitaskingdruck|Bitte warten!!
  1419. Speicherplatz f
  1420. r die ben
  1421. tigten Strukturen allokieren:
  1422. <Leider zuwenig Speicher|f
  1423. r Multitasking-Druck|Bitte warten!!
  1424. Versuche, ein Signal-Bit zu belegen:
  1425. -Multitasking-System 
  1426. berlastet.|Bitte warten!!
  1427. Eigene Tasknummer suchen:
  1428. Reply-Port initialisieren und in die Systemliste einf
  1429.  Typ: Message-Port
  1430.  Zeiger auf Namen des Devices
  1431.  Signal-Bit
  1432. ?F     Tasknummer
  1433.  Zeiger auf erste Datenstruktur
  1434.  Zeiger auf vorletzte Datenstruktur
  1435.  Device-Name
  1436. IODRPReq-Struktur initialisieren und Kanal zum printer.device 
  1437. ffnen:
  1438.  Node Typ (hier: Message)
  1439.  Zeiger auf Message-Port (Reply-Port)
  1440.  Befehl (11: DumpRastport)
  1441.  Adresse des Rastports
  1442.  Adresse der Colormap
  1443.  Viewport-Modi
  1444.  Rastportbreite
  1445.  Rastporth
  1446.  Drucker: Breite
  1447.  Drucker: H
  1448.  Spezial-Druckmodi
  1449. ffnen des printer.device:
  1450. printer.device
  1451. %Drucker ist nicht frei.|Bitte warten!!
  1452. Beim Drucken trat Fehler NR.
  1453.  auf!!
  1454. Wird aus der Prozedur layout_multi_task_drucken aufgerufen, wenn
  1455. Multitasking-Druck unm
  1456. glich ist.
  1457. Alle Parameter des HARDCOPY-Befehls werden als globale Eingangsparameter
  1458. erwartet.
  1459. scht die Arbeitsfl
  1460. che (kann mit Undo wieder r
  1461. ngig gemacht
  1462. werden, da nur die Arbeitsbitmap, nicht aber die Undo-Bitmap
  1463. scht wird).
  1464. "Aktuelles Layout wirklich l
  1465. schen?!
  1466. Ja|Nein!
  1467. Superbitmap s
  1468. ubern:
  1469. Initialisiert die Arbeitsfl
  1470. che gem
  1471.  Benutzereingaben.
  1472. BLayout wirklich neu initialisieren?|(Arbeitsfl
  1473. che wird gel
  1474. scht!)!
  1475. Ja|Nein!
  1476. InitialisierenF
  1477. -Ausdehnung in x-Richtung in mm (max 203,2 mm)"
  1478. -Ausdehnung in y-Richtung in mm (max 360,0 mm)"
  1479. 33333
  1480. Speicherplatz der Superbitmap-Struktur zur
  1481. Speicherplatz der Superbitplane zur
  1482. Speicherplatz der Gadgets zur
  1483. Speicherplatz des Super-Layers zur
  1484. Speicherplatz f
  1485. r "Undo-Bitmap" zur
  1486. ck, falls sie existierte:
  1487.      Rahmen um Layer l
  1488. schen
  1489. Elemente gem
  1490.  den neuen Ma
  1491. en erzeugen:
  1492.  Versuchen, Superbitmap anzulegen
  1493. Zuwenig Speicherplatz!!
  1494.  Super-Layer darauf installieren
  1495. Probleme mit|Super-Layer!
  1496.  Aktuellen Font setzen
  1497. 'Zuwenig Speicherplatz f
  1498. r Undo-Funktion!
  1499. Wirklich abbrechen?!
  1500.  Ja | Nein !
  1501. =============================================================================
  1502. =================================== Menu "Text" =============================
  1503.  Wichtig!
  1504.  Sonst funktioniert ActivateGadget() nicht!
  1505.  String-Gadget aktivieren
  1506.  String-Eingabe mit
  1507. F% RETURN beendet
  1508.  Selector-Titelzeilen-Gadget wurde gedr
  1509.  (Einlesen eines neuen Font-Verzeichnisses
  1510.  Selector-Box l
  1511. schen
  1512. (Balkenl
  1513. nge darf nicht gr
  1514. er werden als Reglerbereich!)
  1515.  Proportional-Gadget wurde gedr
  1516. Neuen Index des ersten Eintrags in der Selektorbox berechnen:
  1517. (Mit CARD arbeiten!)
  1518. Selektorinhalt neu aufbauen:
  1519.  Boolean-Gadget zum Hochscrollen (des Schiebers)
  1520.  wurde gedr
  1521.  Boolean-Gadget zum Runterscrollen (des Schiebers)
  1522.  wurde gedr
  1523.  Boolean-Gadget f
  1524. r Unterstrichen
  1525.  Boolean-Gadget f
  1526. r Fettschrift
  1527.  Boolean-Gadget f
  1528. r Kursivschrift
  1529.  Boolean-Gadget f
  1530. r Outline-Schrift
  1531.  Boolean-Gadget f
  1532. r Zentrierung
  1533.  Boolean-Gadget f
  1534. r Abbruch
  1535.      OK-Boolean-Gadget
  1536.  Font wurde ausgew
  1537. (Ausdruck mit MIN ist wichtig f
  1538. lle, in denen anzahl&<max_sel_anzahl|)
  1539.  Wichtig, damit Ereignis: Loslassen des OK- / Abbruch-Gadgets
  1540.  empfangen wird, sonst Probleme!!!
  1541.  (Ereignis geht verloren)
  1542. (Nicht FRONTW #arbeits_wind|, weil Superlayer sonst hinten bleibt!)
  1543. 4  FB
  1544. Wenn neuer Font gew
  1545. hlt, diesen aktivieren:
  1546. (Bei Abbruch keine Ver
  1547. nderungen akzeptieren)
  1548. Aktiviert auf dem Arbeits-Rastport (superrast%) den Font, der durch
  1549. den Eintrag mit den Index index& aus dem Zeichenkettenfeld font$()
  1550. spezifiziert wird. Automatisch wird der Font in der aktuellen
  1551. Auszeichnung (Schriftstil) aktiviert.
  1552. Diskfont-Library mu
  1553. ffnet sein (weil Funktion OpenDiskFont() benutzt
  1554. wird)!
  1555. Textattr-Struktur generieren:
  1556. Neuen Font laden:
  1557. DISKF
  1558. (Wenn Bit 1 des Preferences-Bytes der TextFont-Struktur gesetzt (TRUE)
  1559. ist, so handelt es sich um einen Disk-Font, andernfalls um einen
  1560. RAM/ROM-Font.)
  1561.  Achtung, darf nicht auf ROM-Fonts angewandt werden!
  1562.  Font konnte nicht geladen werden!
  1563. Diskfont-Library fehlt!
  1564.  Immer erforderlich, weil bei einer
  1565. Font-
  1566. nderung der Stil nicht belassen sondern wieder auf normal gesetzt
  1567. Aktiviert den Schriftstil stil| auf dem Arbeits-Rastport
  1568. (superrast%).
  1569. Bewegt den eingegebenen Text gem
  1570.  der Mausposition 
  1571. ber die Arbeitsfl
  1572. Eingegebenen Text auslesen:
  1573.       FF
  1574.  Text l
  1575. schen
  1576.  Undo-Bitmap mit Arbeitsbitmap synchronisieren
  1577.  Wenn Schriftart outline
  1578. Aktualisiert die Anzeige der Fonteintr
  1579. ge in der Selektorbox
  1580. (Ausdruck mit MIN wichtig f
  1581. lle, in denen anzahl&<max_sel_anzahl|)
  1582.  Aktiven Font markieren
  1583. =============================================================================
  1584. ================================= Menu "Manipulationen" =====================
  1585. Die Benutzung der Funktionen save_rect() und rem_rect() in Kombination
  1586. mit der Graphics-Funktion ClipBlit() hat gegen
  1587. ber den Basic-Anweisungen
  1588. GET und PUT den Vorteil, da
  1589.  Clipping durchgef
  1590. hrt wird (Programm
  1591. rzt nicht ab, wenn Graphik au
  1592. erhalb der Layer-Grenzen kopiert wird)
  1593. und da
  1594.  der ben
  1595. tigte Speicherplatz nicht im Basic-Speicherbereich
  1596. allokiert wird, sondern von au
  1597. erhalb.
  1598.  Eingabe des zu verschiebenden Bereichs
  1599. Zuwenig Speicher!!
  1600.      Superbitmap --> Undo-Bitmap
  1601. Berechnung der linken oberen Ecke des zu verschiebenden Bereichs
  1602. relativ zu B(xb&|yb&):
  1603. Bereich dem Mauszeiger folgen lassen:
  1604.  Wenn sich Mauszeigerkoordinaten ge
  1605. ndert
  1606. Zentrieren eines rechteckigen Bereichs bei freier Beweglichkeit in
  1607. y-Richtung
  1608.  Eingabe des zu verschiebenden Bereichs
  1609.      Superbitmap --> Undo-Bitmap
  1610. Berechnung der linken oberen Ecke des zu verschiebenden Bereichs
  1611. relativ zu B(xb&|yb&):
  1612.  Bereich an der ursp. Stelle
  1613.                                       ! l
  1614. schen
  1615. Bereich dem Mauszeiger in y-Richtung folgen lassen:
  1616.  Wenn sich Mauszeiger-y-koordinate ge
  1617. ndert
  1618.  hat, Bereich verschieben
  1619.      Superbitmap --> Undo-Bitmap
  1620. Ausgabeteil:
  1621. Bitte warten!Fn
  1622. Superbitmap mit normaler Bitmap synchronisieren:
  1623. schen des Quellbereichs auf der Arbeitsfl
  1624. Ausgabeteil (mit Verarbeitung):
  1625.      Superbitmap --> Undo-Bitmap
  1626.  Wenn Punkt gesetzt (schwarz)
  1627. Es mu
  1628.  unbedingt darauf geachtet werden, da
  1629.  vor Verlassen der Prozedur
  1630. der Rastport superrast% wieder zum aktuellen Rastport gemacht wird, weil
  1631. sonst keine Eingaben mehr m
  1632. glich sind (
  1633. ber den IDCMP) und das System
  1634. her oder sp
  1635. ter abst
  1636. Spiegeln eines rechteckigen Bereichs an seiner horizontalen bzw. vertikalen
  1637. Spiegelachse.
  1638.      Superbitmap --> Undo-Bitmap
  1639.  Horizontale Spiegelachse
  1640.   Vertikale Spiegelachse
  1641. Eingabe des Quell- und des Zielbereichs, Umrechnung des Quell- auf
  1642. den Zielbereich. Wenn seitenverhaeltnis_gleich!=FALSE, kann das Seitenver-
  1643. ltnis des Quellbereichs von dem des Zielbereichs differieren, ansonsten
  1644. bleibt es gleich.
  1645. Bitte warten!Fn
  1646.      Superbitmap --> Undo-Bitmap
  1647.  sonst Division durch 0!
  1648.  Wenn Zielbreite <> Quellbreite
  1649. Breite angleichen:
  1650.  Bei Verkleinern
  1651. berstehendes St
  1652. ck entfernen:
  1653. $ Bei Vergr
  1654.  Wenn Zielh
  1655. he <> Quellh
  1656. he angleichen:
  1657.  Bei Verkleinern
  1658. berstehendes St
  1659. ck entfernen:
  1660. $ Bei Vergr
  1661.      Superbitmap --> Undo-Bitmap
  1662. Berechnet den Bildpunkt (qx&,qy&) zu dem Punkt (px&,py&) nach der
  1663. Drehung um das Drehzentrum (zx&,zy&) um den Winkel zwischen der
  1664. Geraden durch Z und P und der Horizontalen.
  1665.  ROUND nicht vergessen!
  1666. Berechnet den Winkel zwischen der Strecke ZP und der Horizontalen
  1667. durch Z. F
  1668. r den Winkel alpha gilt: 0<=alpha<2*PI
  1669.  (1. Quadrant)
  1670.  (4. Quadrant)
  1671.  (2. und 3. Quadrant)
  1672. =============================================================================
  1673. ================================= Menu "Spezial" ============================
  1674.      Superbitmap --> Undo-Bitmap
  1675. Bitte warten!Fn
  1676.  Spalte
  1677.  Zeile
  1678.  Wenn Punkt selbst schwarz
  1679.  Wenn West-Punkt wei
  1680.  Wenn Nord- und Nordwest-Punkt wei
  1681.  Wenn S
  1682. d- und S
  1683. dwest-Punkt wei
  1684.  Wenn Ost-Punkt wei
  1685.  Wenn Nord- und Nordost-Punkt wei
  1686.  Wenn S
  1687. d- und S
  1688. dost-Punkt wei
  1689. schen der berechneten und in x$ und y$ gespeicherten Punkte:
  1690.      Superbitmap --> Undo-Bitmap
  1691. Bitte warten!Fn
  1692.  Spalte
  1693.  Zeile
  1694.  Wenn Punkt selbst wei
  1695.  Wenn West-Punkt schwarz
  1696.  Wenn Nord- und Nordwest-Punkt schwarz
  1697.  Wenn S
  1698. d- und S
  1699. dwest-Punkt schwarz
  1700.  Wenn Ost-Punkt schwarz
  1701.  Wenn Nord- und Nordost-Punkt schwarz
  1702.  Wenn S
  1703. d- und S
  1704. dost-Punkt schwarz
  1705. Setzen der berechneten und in x$ und y$ gespeicherten Punkte:
  1706.      Superbitmap --> Undo-Bitmap
  1707. Zuwenig Speicher!!
  1708.      Superbitmap --> Undo-Bitmap
  1709.  Oder-Verkn
  1710. pfung der Bitmaps
  1711.  EXOR-Verkn
  1712. pfung der Bitmaps
  1713.      Beispielwerte, solange spezial_shadow_einstellen noch in Arbeit
  1714. Zuwenig Speicher!!
  1715.      Superbitmap --> Undo-Bitmap
  1716. Alte Form "outlinen":
  1717.  Oder-Verkn
  1718. pfung der Bitmaps
  1719.  EXOR-Verkn
  1720. pfung der Bitmaps
  1721. Aktuelles Muster setzen:
  1722.  Dann liegt benutzerdefiniertes Muster vor
  1723.  Sonst ist das aktuelle Muster aus dem GFA-Vorrat
  1724.      Superbitmap --> Undo-Bitmap
  1725. Bitte wartenF
  1726.  Warten, bis Blitter fertig ist
  1727.  Wieder r
  1728. cksetzen
  1729. Aktuelles Muster sezten:
  1730.  Dann liegt benutzerdefiniertes Muster vor
  1731.  Sonst ist das aktuelle Muster aus dem GFA-Vorrat
  1732.      Superbitmap --> Undo-Bitmap
  1733.      JAM2 und INVERSVID
  1734.      Wieder JAM1
  1735.      Warten, bis Blitter fertig ist
  1736. Fn     Wieder r
  1737. cksetzen
  1738.  Nummer des Windows zum Muster-einstellen
  1739. llmuster einstellen            (Mit linker Maustaste anklicken)Fn
  1740.  Sonst kann es Probleme geben!
  1741. Boxen mit Mustern erzeugen:
  1742.  Wieder r
  1743. cksetzen!!!
  1744. Warten, bis linke Maustaste gedr
  1745. ckt und Zeile, Spalte ermitteln
  1746. Zuordnung Zeile, Spalte zu Stil und Muster:
  1747.  Wieder r
  1748. cksetzen!
  1749. Definieren des aktuellen F
  1750. llmusters durch den Benutzer.
  1751.  Breite und H
  1752. he des von der Box
  1753. eingerahmten Bereichs: 16 Pixel
  1754. Alte Box l
  1755. schen:
  1756. Neue Box zeichnen:
  1757. Box l
  1758. schen:
  1759.  Alle 16 Bits in der Breite bearbeiten
  1760.  Zur Erkennung in Prozeduren zum F
  1761. llen, da
  1762.  kein Muster
  1763. aus dem GFA-Vorrat das aktuelle Muster ist, sondern ein benutzerdefiniertes.
  1764. Erzeugt einen Rahmen um die Superbitplane, d.h. alle Punkte mit
  1765. extremalen Koordinaten werden gesetzt.
  1766.  Undo-Arbeitsfl
  1767. che synchronisieren
  1768.  Umrahmung
  1769. =============================================================================
  1770. ================================= Menu "Graphik" ============================
  1771.  Koordinaten des gew
  1772. hlten Punktes
  1773. Zeichnen von Linie (objekt|=0), Rechteck (objekt|=1), Kreis
  1774. (objekt|=2) oder Ellipse (objekt|=3)
  1775.  Koordinaten des ersten Punktes
  1776.  Anfangspunkt setzen (wird in der Schleife gel
  1777. scht)
  1778.  altes Objekt l
  1779. schen
  1780.  neues Objekt zeichnen
  1781. schen durch erneutes Zeichnen an letzte Position (Graphmode 2):
  1782.  Undo-Bitmap synchronisieren
  1783.  Aktuellen Graphikmodus setzen
  1784.  Aktuelle Linienart setzen
  1785.  Dem Graphikmodus entsprechend zeichnen
  1786.  Durchgezogene Linienart setzen
  1787. Zum Zeichnen einer Bezier-Kurve mit dem GFA-BASIC-Befehl CURVE.
  1788.  Koordinaten des ersten Punktes
  1789.  Anfangswerte f
  1790. r zweiten Punkt
  1791.  Anfangspunkt setzen (wird in der Schleife gel
  1792. scht)
  1793.  alte Linie l
  1794. schen
  1795.  neue Linie zeichnen
  1796.  Bis linke Maustaste wieder losgelassen
  1797.  Linie l
  1798. schen
  1799. Kurve
  1800.  Bis linke Maustaste gedr
  1801. schen
  1802. F!% Undo-Bitmap synchronisieren
  1803.  und gem
  1804.  Graphikmodus
  1805.  und Linienart
  1806.  zeichnen
  1807. Fn# (durchgezogene Linienart)
  1808. hlen eines "Pinsels" und Zeichnen mit diesem.
  1809. =============================================================================
  1810. ================================== Menu "Sonstiges" =========================
  1811. Kopiert den Inhalt der "Undo-Bitmap", sofern diese existiert, in die
  1812. Superbitmap.
  1813. )Fehler beim Kopieren der|Bitplaneinhalte!!
  1814.  Normale Bitmap mit Superbitmap synchronisieren
  1815.  (Superbitmap -> Normale Bitmap)
  1816. Zuwenig Speicher f
  1817. r Undo!
  1818. Wenn die Arbeitsfl
  1819. che gr
  1820. er als der Super-Layer ist, so verkleinert
  1821. diese Prozedur den Arbeitsfl
  1822. cheninhalt unter Beibehaltung des Seiten-
  1823. ltnisses so, da
  1824.  der Arbeitsfl
  1825. cheninhalt auf einmal sichtbar ist
  1826. )Undo-Bitmap fehlt,|zuwenig Speicherplatz!!
  1827. Bitte warten!Fn
  1828.  Arbeits-Bitmap -> Undo-Bitmap
  1829.  (links oben: 0|0)
  1830.  (urspr
  1831. ngliche Pos.)
  1832.  Undo-Bitmap -> Arbeits-Bitmap
  1833. Tauscht Hintergrund- und Zeichenfarbe
  1834. =============================================================================
  1835. ============================= Gadget-Routinen ===============================
  1836. Erzeugt ein umrandetes Boolean-Text-Gadget.
  1837. Speicher f
  1838. r Gadget-Struktur reservieren:
  1839. ubern!)
  1840.  44 Bytes f
  1841. r Gadget-Struktur
  1842.  16 Bytes f
  1843. r Border-Struktur
  1844.  20 Bytes f
  1845. r Koordinaten f
  1846. r den Border
  1847.      20 Bytes f
  1848. r IntuitionText-Struktur
  1849. Allgemeine Gadget-Struktur (44 Bytes):
  1850.  kein weiteres Gadget
  1851.  X-Wert der linken oberen Ecke (hier relativ zum rechten Rand)
  1852.  Y-Wert der linken oberen Ecke
  1853.  Breite des Klickbereiches
  1854. he des Klickbereiches
  1855.  Gadget_Flags
  1856.  Gadget_Activation (GADGIMMEDIATE, RELVERIFY, |TOGGLESELECT)
  1857.  Gadget_GadgetType (BOOLGADGET)
  1858. F     Zeiger auf Border-Struktur
  1859.  Zeiger auf Graphik bei der Aktivierung
  1860.  Zeiger auf Text
  1861.  nicht unterst
  1862.  Zeiger auf spezielle Informationen
  1863.  Gadget-Nr.
  1864.  (User-Data, keine Funktion)
  1865. Border-Strukur (zum Zeichnen der Umrahmung) (16 Bytes):
  1866.  Offset in x-Richtung
  1867.  Offset in y-Richtung
  1868.  Hintergrundfarbe
  1869.  Vordergrundfarbe
  1870.  Zeichenmodus
  1871.  Anzahl der Koordinatenpaare
  1872.  Zeiger auf Koordinatentabelle
  1873.  Keine weiteren Borders
  1874. Koordinaten-Tabelle f
  1875. r die Border (bei Rechteck 20 Bytes):
  1876. IntuitionText-Struktur (20 Bytes):
  1877.  String nullterminieren!
  1878. Textl
  1879. nge ermitteln, damit Text mittig ausgegeben wird:
  1880.  *IText
  1881.  Textl
  1882. nge in Pixeln!
  1883.  FrontPen
  1884.  BackPen
  1885.  DrawMode
  1886.  AdjustToWord
  1887.  LeftEdge
  1888.  TopEdge
  1889.  *TextAttr
  1890.  *IText
  1891.  *NextText
  1892. Gadget (an letzter Position) einf
  1893. Ausgangsvariablen setzen:
  1894. Erzeugt ein Boolean-Image-Gadget.
  1895. Speicher f
  1896. r Gadget-Struktur reservieren:
  1897. ubern!)
  1898.  44 Bytes f
  1899. r Gadget-Struktur
  1900.  20 Bytes f
  1901. r Image-Struktur
  1902. Allgemeine Gadget-Struktur (44 Bytes):
  1903.  kein weiteres Gadget
  1904.  X-Wert der linken oberen Ecke (hier relativ zum rechten Rand)
  1905.  Y-Wert der linken oberen Ecke
  1906.  Breite des Klickbereiches
  1907. he des Klickbereiches
  1908.  Gadget_Flags (GADGHCOMP, GADGIMMAGE)
  1909.  Gadget_Activation (RELVERIFY, GADGIMMEDIATE, |TOGGLESELECT)
  1910.  Gadget_GadgetType (BOOLGADGET)
  1911.  Zeiger auf Image-Struktur
  1912.  Zeiger auf Image bei der Aktivierung
  1913.  Zeiger auf Text
  1914.  nicht unterst
  1915.  Zeiger auf spezielle Informationen
  1916.  Gadget-Nr.
  1917.  (User-Data, keine Funktion)
  1918. Image-Struktur (20 Bytes):
  1919.  x-Offset
  1920.  y-Offset
  1921.  Imagebreite
  1922.  Imageh
  1923.  Anzahl Bitplanes
  1924.  Zeiger auf Image-Daten
  1925.  PlanePick
  1926.  PlaneOnOff
  1927.  Zeiger auf weiteres Image
  1928. Gadget (an letzter Position) einf
  1929. Ausgangsvariablen setzen:
  1930. Erzeugt ein String-Gadget.
  1931. Speicher f
  1932. r Gadget-Struktur reservieren:
  1933. ubern!)
  1934. FF     44 Bytes f
  1935. r Gadget-Struktur
  1936.  36 Bytes f
  1937. r StringInfo-Struktur
  1938.  16 Bytes f
  1939. r Border-Struktur
  1940.  20 Bytes f
  1941. r Koordinaten f
  1942. r den Border
  1943.                              =116 Bytes
  1944.  max_char& Bytes f
  1945. r Textpuffer
  1946.  max_char& Bytes f
  1947. r Undo-Puffer
  1948. Allgemeine Gadget-Struktur (44 Bytes):
  1949.  kein weiteres Gadget
  1950.  X-Wert der linken oberen Ecke (hier relativ zum rechten Rand)
  1951.  Y-Wert der linken oberen Ecke
  1952.  Breite des Klickbereiches
  1953. he des Klickbereiches
  1954.  Gadget_Flags (GADGHCOMP)
  1955.  Gadget_Activation (RELVERIFY,GADGIMMEDIATE,STRINGCENTER|STRINGRIGHT)
  1956.  Gadget_GadgetType (STRGADGET)
  1957. F     Zeiger auf Border-Struktur
  1958.  Zeiger auf Graphik bei der Aktivierung
  1959.  Zeiger auf Text
  1960.  nicht unterst
  1961.  Zeiger auf spezielle Informationen
  1962.  Gadget-Nr.
  1963.  (User-Data, keine Funktion)
  1964. SpecialInfo-Struktur (StringInfo) (36 Bytes):
  1965.  Zeiger auf Textpuffer
  1966.  Zeiger auf Undo-Puffer
  1967.  Cursorposition
  1968. F     Max. Anzahl Zeichen
  1969.  Text ab diesem Zeichen ausgeben
  1970.  Zeichenposition im Undo-Puffer
  1971.  Anzahl Zeichen im Textpuffer
  1972.  Anzahl der im Container sichtbaren Zeichen
  1973.  horizontaler Container-Offset
  1974.  vertikaler Container-Offset
  1975.  Zeiger auf aktuellen Rastport
  1976.  Eingabe bei Integer-Gadgets
  1977.  Zeiger auf Tastaturbelegung
  1978. Border-Strukur (zum Zeichnen der Umrahmung) (16 Bytes):
  1979.  Offset in x-Richtung
  1980.  Offset in y-Richtung
  1981.  Hintergrundfarbe
  1982.  Vordergrundfarbe
  1983.  Zeichenmodus
  1984.  Anzahl der Koordinatenpaare
  1985.  Zeiger auf Koordinatentabelle
  1986.  Keine weiteren Borders
  1987. Koordinaten-Tabelle f
  1988. r die Border (bei Rechteck 20 Bytes):
  1989. Gadget (an letzter Position) einf
  1990. Ausgangsvariablen setzen:
  1991. Erzeugt ein Proportional-Autoknob-Gadget f
  1992. r Scrolling in horizontaler oder
  1993. vertikaler Richtung.
  1994. ,int_puffer%
  1995. Speicher f
  1996. r Gadget-Struktur reservieren:
  1997. ubern!)
  1998.  44 Bytes f
  1999. r Gadget-Struktur
  2000.  22 Bytes f
  2001. r PropInfo-Struktur
  2002.       8 Bytes f
  2003. r Intuition-Puffer
  2004.                         Summe: 74 Bytes f
  2005. r gesamte Struktur
  2006. Allgemeine Gadget-Struktur (44 Bytes):
  2007.  kein weiteres Gadget
  2008.  X-Wert der linken oberen Ecke
  2009.  Y-Wert der linken oberen Ecke
  2010.  Breite des Klickbereiches
  2011. he des Klickbereiches
  2012.  Gadget_Flags (GADGHCOMP)
  2013.  Gadget_Activation (GADGIMMEDIATE, RELVERIFY, |TOGGLESELECT)
  2014.  Gadget_GadgetType (PROPGADGET)
  2015.  Zeiger auf Graphik-Struktur
  2016.  Zeiger auf Image bei der Aktivierung
  2017.  Zeiger auf Text
  2018.  nicht unterst
  2019.  Zeiger auf spezielle Informationen
  2020.  Gadget-Nr.
  2021.  (User-Data, keine Funktion)
  2022. SpecialInfo-Struktur (PropInfo) (22 Bytes):
  2023.  Flags (FREEVERT, AUTOKNOB)
  2024.  X-Position des Schiebers
  2025.  Y-Position des Schiebers
  2026.  Balkenbreite / Schrittweite
  2027.  Balkenh
  2028. he / Schrittweite
  2029.  Flags (FREEHORIZ, AUTOKNOB)
  2030.  X-Position des Schiebers
  2031.  Y-Position des Schiebers
  2032.  Balkenbreite / Schrittweite
  2033.  Balkenh
  2034. he / Schrittweite
  2035. folgende sechs Worte werden von Intuition beschrieben:
  2036.  Box-Breite
  2037.  Box-H
  2038.  absolute Schrittweite horizontal
  2039.  absolute Schrittweite vertikal
  2040.  X-Wert des linken Randes der Box
  2041.  Y-Wert des oberen Randes der Box
  2042. Puffer f
  2043. r Eintragungen der aktuellen Daten durch Intuition (8 Bytes):
  2044.  X-Position des Schiebers
  2045.  Y-Position des Schiebers
  2046.  Breite des Schiebers
  2047. he des Schiebers
  2048.  Adresse der Speicherzellen f
  2049. r y-Position des Balkens
  2050.  Adresse der Speicherzellen f
  2051. r x-Position des Balkens
  2052. Gadget (an letzter Position) einf
  2053. Ausgangsvariablen setzen:
  2054. Entfernt ein Gadget und gibt den f
  2055. r seine Struktur ben
  2056. tigten
  2057. Speicherplatz an das System zur
  2058.  Nur, wenn Gadget existiert, sonst Absturz!
  2059. Fs     Zur Verdeutlichung der Tatsache, da
  2060.  das Gadget
  2061.                       ! nicht mehr existiert!
  2062. =============================================================================
  2063. ================================ Sonstiges ==================================
  2064. bertr
  2065. gt den Inhalt der Superbitmap in die "Undo-Bitmap", sofern diese
  2066. vorhanden ist.
  2067.  Superbitmap mit normaler Bitmap synchronisieren
  2068. )Fehler beim Kopieren der|Bitplaneinhalte!!
  2069. Eingabe eines rechteckigen Bereiches durch den Benutzer mit der Maus.
  2070. Wenn gefuellt!=TRUE, dann wird der durch den Benutzer eingebene Bereich
  2071. durch ein gef
  2072. lltes Rechteck veranschaulicht.
  2073.  Variablen l
  2074. schen
  2075. Warten, bis linke Maustaste gedr
  2076. ckt oder Menupunkt angew
  2077.  Warten, bis Ereignis eintritt (Multitasking!)
  2078.  Koordinaten der ersten Ecke
  2079.  Startkoordinaten der zweiten Ecke
  2080.  Wenn sich Mauszeigerkoordinaten ge
  2081. ndert
  2082.  haben, Rechteck neu zeichnen
  2083.  Box l
  2084. schen
  2085. Eingabe zweier Rechtecke, die in der Prozedur manipulationen_verzerren
  2086. als Quellrechteck (das erste einzugebende Reckteck) und als Zielrechteck
  2087. (das zweite einzugebende Reckteck) interpretiert werden. Dabei liegen
  2088. beide Rechtecke immer in demselben Quadranten, was die Ergonomie der
  2089. Bedienung verbessert (Eindeutigkeit, Konsistenz).
  2090. Quellbereich eingeben:
  2091.  Quellbereichsbox markieren
  2092. Seitenverh
  2093. ltnis des Quell-Rechtecks x/y:
  2094. sv=(quell_rux&-quell_lox&+1)/(quell_ruy&-quell_loy&+1)
  2095. Eingabe des Zielbereiches:
  2096. IF x&<>ziel_x& OR y&<>ziel_y&
  2097. Gefordert: sv = (x&-ox&+1)/(y&-oy&+1)
  2098.  Altes Ziel-Recheck l
  2099. schen
  2100.  Neues Ziel-Recheck zeichnen
  2101. schen der Rechtecke und Berechnung wichtiger Gr
  2102.  Quellbereichsmarkierung l
  2103. schen
  2104.  Altes Ziel-Recheck l
  2105. schen
  2106. Linke obere Ecke des Zielbereichs:
  2107. Rechte untere Ecke des Zielbereichs:
  2108.  Quellbereichsmarkierung l
  2109. schen
  2110. Realisierung der in GFA-Basic 3.0 nicht implementierten Intuition-Funktion
  2111. NewModifyProp() mittels des Befehls RCALL.
  2112. (Die unter GFA-Basic 3.0 vorhandene Funktion ModifyProp() funktioniert nicht
  2113. korrekt! Au
  2114. erdem w
  2115. re es ungeeignet, weil die folgenden Gadgets neu ge-
  2116. zeichnet werden, was evt. nachfolgende Toggle-Select-Boolean-Gadgets zer-
  2117. ren kann.
  2118.  A0: Gadget
  2119.  A1: Window
  2120.  A2: Requester
  2121.  D0: Flags
  2122. F     D1: HorizPot
  2123.  D2: VertPot
  2124.  D3: HorizBody
  2125. ~F     D4: VertBody
  2126.  D5: Numgad
  2127.  Betriebssystemfunktionsaufruf
  2128.  A0: *LayerInfo
  2129.  A1: *Bitmap
  2130.  A2: *Super-Bitmap
  2131.  D4: Flags
  2132.  Betriebssystemfunktionsaufruf
  2133.  Adresse des Layers in D0
  2134.  (Zu Testzwecken)
  2135. Zeichnet ein in einer String-Variablen gespeichertes Image mit der
  2136. Betriebssystem- (Graphics-) Funktion DrawImage() an die Stelle x&|y&
  2137. im Rastport rastport%. Das Image besitzt dabei die Breite breite&
  2138. und die H
  2139. he hoehe&.
  2140. Nicht genug Speicherplatz!
  2141. Image-Struktur (20 Bytes):
  2142.  x-Offset
  2143.  y-Offset
  2144.  Imagebreite
  2145.  Imageh
  2146.  Anzahl Bitplanes
  2147.  Zeiger auf Image-Daten
  2148.  PlanePick
  2149.  PlaneOnOff
  2150.  Zeiger auf weiteres Image
  2151. (Ermittelt Speicherbedarf von mit GET zu erfassenden Bereichen (Eine Bitplane))
  2152. Umrechnung mm in Pixel:
  2153. Umrechnung Pixel in mm:
  2154. ckgabe:
  2155. Adresse des neu angelegten Rastports
  2156. Diese Funktion legt einen neuen Rastport an (inklusive Bitmap und einer
  2157. Bitplane), in den der durch lox&,loy&,rux&,ruy& spezifizierte Bereich,
  2158. aus dem Rastport quellrastport% kopiert wird. R
  2159. ckgabeparameter ist die
  2160. Adresse des neu geschaffenen Rastports oder, wenn etwas schiefgelaufen
  2161. ist, 0.
  2162. Diese Funktion liquidiert die durch rastport% angegebene Rastport-Struktur
  2163. sowie die zugeh
  2164. rige Bitmap-Struktur und gibt den f
  2165. r die Strukturen und
  2166. die Bitplane ben
  2167. tigten Speicher an das System zur
  2168.  Breite und H
  2169. he aus der Bitmap-
  2170.  Struktur
  2171.  Funktion nie ohne RETURN, sonst Fehlermeldung!
  2172. =============================================================================
  2173.